home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 22 / Amiga Format AFCD22 (Jan 1998, Issue 106).iso / -seriously_amiga- / shareware / workbench / -dopus- / empdopus / dopusarexx / dragd2d.rexx < prev    next >
OS/2 REXX Batch file  |  1997-11-05  |  1KB  |  62 lines
  1. /*$VER: DragD2D.rexx 1.1 (18.10.97) B00ze
  2.  * God even basic Diskmaster functionality is a pain to add to Dopus.
  3.  * For questions or comments email Booze@Videotron.CA
  4.  * Compressed by CrunchRexx v1.1
  5.  */
  6. PN='DragD2D.rexx'
  7. SH=0;WIN=0;LF='0A'x
  8. Options results
  9. Signal ON SYNTAX
  10. Signal ON BREAK_C
  11. Signal ON FAILURE
  12. PARSE ARG P DH A
  13. A=Strip(A)
  14. If A="" Then Exit 10
  15. Address VALUE P
  16. If DH=0 Then Do
  17. DL.=0
  18. 'Lister Query Dest Stem DL.'
  19. If DL.count=0 Then Exit 10
  20. DH=DL.0
  21. End
  22. 'Lister Set' DH 'Busy 0'
  23. 'Lister Read' DH '"'A'"'
  24. Exit 0
  25. BREAK_C:
  26. Address VALUE P
  27. If SH~=0 Then Do
  28. 'Lister Set' SH 'Busy 0'
  29. 'Lister Set' SH 'Title'
  30. 'Lister Refresh' SH 'FULL'
  31. RCMD='Lister Request 'SH
  32. End
  33. Else RCMD='Dopus Request'
  34. 'Command Flash'
  35. RCMD' "+++ Break! +++" OK'
  36. Exit 0
  37. SYNTAX:
  38. RCX=RC
  39. Address VALUE P
  40. If SH~=0 Then Do
  41. 'Lister Set' SH 'Busy 0'
  42. 'Lister Set' SH 'Title'
  43. 'Lister Refresh' SH 'FULL'
  44. RCMD='Lister Request 'SH
  45. End
  46. Else RCMD='Dopus Request'
  47. 'Command Flash'
  48. RCMD' "+++ Syntax Error +++'LF'('RCX') at line 'SIGL||LF||errortext(RCX)'" OK'
  49. Exit 20
  50. FAILURE:
  51. Address VALUE P
  52. If SH~=0 Then Do
  53. 'Lister Set' SH 'Busy 0'
  54. 'Lister Set' SH 'Title'
  55. 'Lister Refresh' SH 'FULL'
  56. RCMD='Lister Request 'SH
  57. End
  58. Else RCMD='Dopus Request'
  59. 'Command Flash'
  60. RCMD' "+++ Failure +++'LF'Something failed at line 'SIGL'" OK'
  61. Exit 20
  62.